Imports System.Xml
Imports System.Data.SqlClient
Public Class dOpCheque
    Public Function Existe(ByVal CodigoOpCheque As String, ByVal CodigoOrden As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOpCheque <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOpCheque", CodigoOpCheque))
        End If
        If CodigoOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrden", CodigoOrden))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblOpChequeBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal IdCheque As String, ByVal CodigoOrden As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If CodigoOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrden", CodigoOrden))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpChequeALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoOpCheque As String, ByVal CodigoOrden As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOpCheque <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOpCheque", CodigoOpCheque))
        End If
        If CodigoOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrden", CodigoOrden))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpChequeELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoOpCheque As String, ByVal IdCheque As String, ByVal CodigoOrden As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOpCheque <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOpCheque", CodigoOpCheque))
        End If
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If CodigoOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrden", CodigoOrden))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpChequeMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoOpCheque As String, ByVal IdCheque As String, ByVal CodigoOrden As String, ByVal Importe As String, ByVal Fecha As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOpCheque <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOpCheque", CodigoOpCheque))
        End If
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If CodigoOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrden", CodigoOrden))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblOpChequeBUSCARFILTRADO", Parametros)
    End Function
End Class
